﻿Public Class Registrar_cliente
    Inherits System.Web.UI.Page

    Dim messegbox As Object

    Private Property MessageBox As Object

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub BT_registro_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BT_registro.Click





        Dim datacontex As New DCStorexpressDataContext
        Dim mensaje As MsgBoxResult

        mensaje = MsgBox("¿Desea Guardar Registro?", MsgBoxStyle.OkCancel, "REGISTRO")
        If mensaje = MsgBoxResult.Ok Then
            MsgBox("Registro Guardado")

            datacontex.INSERTAR_CLIENTE(Me.TB_nombres.Text, Me.TB_apellidos.Text, Me.RadioButtonList1.Text, Me.TB_numerodoc.Text, Me.TB_numerotel.Text, Me.TB_direccion.Text, Me.TB_correo.Text)

         


                TB_nombres.Text = ""
            TB_apellidos.Text = ""
            RadioButtonList1.Text = ""
                TB_numerodoc.Text = ""
                TB_numerotel.Text = ""
                TB_direccion.Text = ""
                TB_correo.Text = ""


            End If





    End Sub

    Protected Sub BT_atras_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BT_atras.Click
        Response.Redirect("~/Registrar.aspx")
    End Sub
End Class